COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE GEOMEL
C00004 00003	STORE LINKS.
C00006 00004	FLOATING FULL WORD DATUMS.
C00008 ENDMK
C⊗;
TITLE GEOMEL
	EXTERN MAKNUM

;ALTERNATE PDP-10 MNEMONICS.
	DEFINE O(A,B){OPDEF A[B]}
	O DIP,HRLM↔O DAP,HRRM
	O CAR,HLRZ↔O CDR,HRRZ
	O LAC,MOVE↔O DAC,MOVEM↔O GO,JRST

DEFINE NUMVAL(AC){
	TRNE AC,1B18↔GO .+4
	CDR AC,(AC)↔CDR AC,(AC)↔SKIPA AC,(AC)
	SUBI AC,577777}

;FETCH LINKS.

NFACE↑:	NUMVAL(1)↔CAR 1,1(1)↔GO MAKNUM+1
PFACE↑:	NUMVAL(1)↔CDR 1,1(1)↔GO MAKNUM+1
  NED↑:	NUMVAL(1)↔CAR 1,2(1)↔GO MAKNUM+1
  PED↑:	NUMVAL(1)↔CDR 1,2(1)↔GO MAKNUM+1
  NVT↑:	NUMVAL(1)↔CAR 1,3(1)↔GO MAKNUM+1
  PVT↑:	NUMVAL(1)↔CDR 1,3(1)↔GO MAKNUM+1

  DAD↑:	NUMVAL(1)↔CAR 1,4(1)↔GO MAKNUM+1
  SON↑:	NUMVAL(1)↔CDR 1,4(1)↔GO MAKNUM+1
  BRO↑:	NUMVAL(1)↔CAR 1,5(1)↔GO MAKNUM+1
  SIS↑:	NUMVAL(1)↔CDR 1,5(1)↔GO MAKNUM+1

  ALT↑:	NUMVAL(1)↔CAR 1,6(1)↔GO MAKNUM+1
 ALT2↑:	NUMVAL(1)↔CDR 1,6(1)↔GO MAKNUM+1
   CW↑:	NUMVAL(1)↔CAR 1,7(1)↔GO MAKNUM+1
  CCW↑:	NUMVAL(1)↔CDR 1,7(1)↔GO MAKNUM+1
 CAR8↑:	NUMVAL(1)↔CAR 1,8(1)↔GO MAKNUM+1
 CDR8↑:	NUMVAL(1)↔CDR 1,8(1)↔GO MAKNUM+1

;STORE LINKS.
;--------------------------------------------------------------------
NFACE$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,1(2)↔POPJ 14,
PFACE$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,1(2)↔POPJ 14,
  NED$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,2(2)↔POPJ 14,
  PED$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,2(2)↔POPJ 14,
  NVT$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,3(2)↔POPJ 14,
  PVT$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,3(2)↔POPJ 14,
  DAD$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,4(2)↔POPJ 14,
  SON$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,4(2)↔POPJ 14,
  BRO$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,5(2)↔POPJ 14,
  SIS$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,5(2)↔POPJ 14,
  ALT$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,6(2)↔POPJ 14,
 ALT2$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,6(2)↔POPJ 14,
   CW$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,7(2)↔POPJ 14,
  CCW$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,7(2)↔POPJ 14,
 DIP8$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DIP 3,8(2)↔POPJ 14,
 DAP8$↑: DAC 1,3↔NUMVAL(3)↔NUMVAL(2)↔DAP 3,8(2)↔POPJ 14,
;--------------------------------------------------------------------
;FLOATING FULL WORD DATUMS.

XWC↑:	NUMVAL(1)↔LAC 1,-3(1)↔GO MAKNUM
YWC↑:	NUMVAL(1)↔LAC 1,-2(1)↔GO MAKNUM
ZWC↑:	NUMVAL(1)↔LAC 1,-1(1)↔GO MAKNUM
 IX↑:	NUMVAL(1)↔LAC 1,0(1)↔GO MAKNUM
 IY↑:	NUMVAL(1)↔LAC 1,1(1)↔GO MAKNUM
 IZ↑:	NUMVAL(1)↔LAC 1,2(1)↔GO MAKNUM
 JX↑:	NUMVAL(1)↔LAC 1,3(1)↔GO MAKNUM
 JY↑:	NUMVAL(1)↔LAC 1,4(1)↔GO MAKNUM
 JZ↑:	NUMVAL(1)↔LAC 1,5(1)↔GO MAKNUM
 KX↑:	NUMVAL(1)↔LAC 1,6(1)↔GO MAKNUM
 KY↑:	NUMVAL(1)↔LAC 1,7(1)↔GO MAKNUM
 KZ↑:	NUMVAL(1)↔LAC 1,8(1)↔GO MAKNUM

 AA↑:	NUMVAL(1)↔LAC 1,-3(1)↔GO MAKNUM
 BB↑:	NUMVAL(1)↔LAC 1,-2(1)↔GO MAKNUM
 CC↑:	NUMVAL(1)↔LAC 1,-1(1)↔GO MAKNUM

XPP↑:	NUMVAL(1)↔LAC 1,4(1)↔GO MAKNUM
YPP↑:	NUMVAL(1)↔LAC 1,5(1)↔GO MAKNUM
ZPP↑:	NUMVAL(1)↔LAC 1,6(1)↔GO MAKNUM

END